home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 10 / Revista do CD-ROM 10.iso / tela1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-03-13  |  1.6 KB  |  59 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Visualizador de Figuras para Windows"
  4.    ClientHeight    =   2865
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6975
  8.    Height          =   3270
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2865
  12.    ScaleWidth      =   6975
  13.    Top             =   1170
  14.    Width           =   7095
  15.    Begin VB.DriveListBox Drive1 
  16.       Height          =   315
  17.       Left            =   1920
  18.       TabIndex        =   2
  19.       Top             =   2400
  20.       Width           =   1935
  21.    End
  22.    Begin VB.DirListBox Dir1 
  23.       Height          =   2055
  24.       Left            =   1920
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   1935
  28.    End
  29.    Begin VB.FileListBox File1 
  30.       Height          =   2595
  31.       Left            =   120
  32.       Pattern         =   "*.bmp"
  33.       TabIndex        =   0
  34.       Top             =   120
  35.       Width           =   1695
  36.    End
  37.    Begin VB.Image Image1 
  38.       BorderStyle     =   1  'Fixed Single
  39.       Height          =   2655
  40.       Left            =   3960
  41.       Stretch         =   -1  'True
  42.       Top             =   120
  43.       Width           =   2895
  44.    End
  45. Attribute VB_Name = "Form1"
  46. Attribute VB_Creatable = False
  47. Attribute VB_Exposed = False
  48. Private Sub Dir1_Change()
  49.   File1.Path = Dir1.Path
  50.   ChDir Dir1.Path
  51. End Sub
  52. Private Sub Drive1_Change()
  53.   Dir1.Path = Drive1.Drive
  54.   ChDrive Drive1.Drive
  55. End Sub
  56. Private Sub File1_Click()
  57.   Image1.Picture = LoadPicture(File1.filename)
  58. End Sub
  59.